home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / Source / DBL Pascal Library / INIT Shell Folder / INIT Example ƒ / ResCheck.p < prev   
Text File  |  1990-05-28  |  490b  |  19 lines
  1. unit ResCheck;
  2. {Copyright © 1990, David B. Lamkins}
  3. {All rights reserved.}
  4.  
  5. interface
  6.  
  7.     function DangerousResource (theType: OSType; theID: INTEGER; theName: StringPtr; theHandle: Handle): BOOLEAN;
  8.  
  9. implementation
  10.  
  11.     function DangerousResource (theType: OSType; theID: INTEGER; theName: StringPtr; theHandle: Handle): BOOLEAN;
  12.         var
  13.             theSize: LONGINT;
  14.     begin
  15.         theSize := GetHandleSize(theHandle);
  16.         DangerousResource := (theType = 'WDEF') and (theID = 0) and (theSize = 1836);
  17.     end;
  18.  
  19. end.